home *** CD-ROM | disk | FTP | other *** search
/ 100 Plus Great Games 2 / 100PLUSV2.BIN / games / Sultan.dxr / playing cards_55_reserve cards.ls < prev    next >
Encoding:
Text File  |  2002-01-25  |  2.6 KB  |  76 lines
  1. property spriteNum
  2. global reserve, stock, equal, points, currentselect, waste, mover, deals, foundation, gsultan
  3.  
  4. on beginSprite me
  5.   sprite(spriteNum).member = member(stock.cards[1].rank & "_" & stock.cards[1].suit, "playing cards")
  6.   stock.cards.deleteAt(1)
  7.   reserve.addProp(makesymbol(spriteNum), new(script("card pile")))
  8.   reserve[makesymbol(spriteNum)].addCard(spriteNum)
  9. end
  10.  
  11. on mouseDown me
  12.   if sprite(spriteNum).member <> member("block", "playing cards") then
  13.     puppetSound(3, "pickcard")
  14.     sprite(spriteNum).locZ = spriteNum + 1000
  15.     mover = timeout("mover").new(5, #moveme, me)
  16.   end if
  17. end
  18.  
  19. on moveme me
  20.   sprite(spriteNum).loc = the mouseLoc
  21. end
  22.  
  23. on mouseUp me
  24.   if equal = 1 then
  25.     puppetSound(3, "pickcard")
  26.     mover.forget()
  27.     sprite(spriteNum).loc = reserve[makesymbol(spriteNum)].getlastcard().location
  28.     sprite(spriteNum).locZ = spriteNum
  29.     sprite(currentselect).member = member(sprite(the clickOn).memberNum, "playing cards")
  30.     reserve[makesymbol(spriteNum)].subcard(reserve[makesymbol(spriteNum)].getcardcount())
  31.     if waste.cards.count > 0 then
  32.       sprite(spriteNum).member = member(waste.getlastcard().membername, "playing cards")
  33.       waste.subcard(waste.getcardcount())
  34.       reserve[makesymbol(spriteNum)].addCard(spriteNum)
  35.       if waste.cards.count > 0 then
  36.         sprite(19).member = member(waste.getlastcard().membername, "playing cards")
  37.       else
  38.         sprite(19).member = member("block", "playing cards")
  39.         sprite(17).member = member("block", "playing cards")
  40.       end if
  41.     else
  42.       if stock.cards.count > 0 then
  43.         sprite(spriteNum).member = member(stock.cards[1].rank & "_" & stock.cards[1].suit, "playing cards")
  44.         stock.cards.deleteAt(1)
  45.         reserve[makesymbol(spriteNum)].addCard(spriteNum)
  46.         if stock.cards.count = 0 then
  47.           if deals < 3 then
  48.             sprite(18).member = member("replenish", 1)
  49.           else
  50.             sprite(18).member = member("block", "playing cards")
  51.           end if
  52.         end if
  53.       else
  54.         sprite(spriteNum).member = member("block", "playing cards")
  55.       end if
  56.     end if
  57.     foundation[makesymbol(currentselect)].addCard(currentselect)
  58.     if foundation[makesymbol(currentselect)].cards.count = 13 then
  59.       gsultan.pTimeout = timeout(string(the ticks) && "sultan").new(5, #dance, gsultan)
  60.     end if
  61.     points = points + 10
  62.     equal = 0
  63.     currentselect = 0
  64.     checkwin()
  65.   else
  66.     if equal = 0 then
  67.       puppetSound(3, "dropcard")
  68.       if not voidp(mover) then
  69.         mover.forget()
  70.       end if
  71.       sprite(spriteNum).loc = reserve[makesymbol(spriteNum)].getlastcard().location
  72.       sprite(spriteNum).locZ = spriteNum
  73.     end if
  74.   end if
  75. end
  76.